<!--#INCLUDE FILE="programmer.inc"-->
<!--#INCLUDE FILE="conn.asp"-->
<!-- #include file="function_charCode.asp" -->
<!-- #include file="function.asp" -->
<!-- #include file="comSub.asp" -->
<!-- #include file="FriendOE.asp" -->
<script src=inc/js1.js></script>

<%
call onlineuser()
call bbsClose()
call stylefile()
call newmessage()

dim boardid2
boardid2=Request.QueryString("boardid")
Dim keyword2
keyword2=Trim(request("keyword"))
keyword2=Replace(Replace(keyword2,"<",""),">","")

if CommunityHiddenYesNo(Communityid_B_boardid(Request.QueryString("boardid")))=true then
	Call tslt_useridentity12_error_Exit()
end if
%>

<html>
<head>
<%call MetaKeyw()%>
<%call MetaDesc()%>
<title>̳  <%=request.querystring("boardname")%></title>

<SCRIPT language="JavaScript" type="text/javascript">
             function set_onchange() {
                   if (formprogress.act.selectedIndex == 10)
                   {
                            Reverse();
                            var ret;
                            var ret = confirm("ؾ棡ȷťɾȫҳȫ\n( ̶̶̶ܹͷʾ)ز");
                            if(ret!=false)
                             {
                                    formprogress.goto.click();
                             }
                             else
                             {
                                    ReSet();
                                    document.formprogress.act.value="";
                             }
                    } 
                    if (formprogress.act.selectedIndex == 11)
                    {
                            ReSet();
                    }
                    if (formprogress.act.selectedIndex == 12)
                    {
                            var ret;
                            var ret = confirm("ע⣺ֻѡһƪóɰͷʾ");
                            if(ret!=false)
                             {
                                    formprogress.goto.click();
                             }
                             else
                             {
                                    ReSet();
                                    document.formprogress.act.value="";
                             }
                     }
                    if (formprogress.act.selectedIndex == 13)
                    {
                            var ret;
                            var ret = confirm("ȡͷʾֱӵȷťҪѡӡ");
                            if(ret!=false)
                             {
                                    formprogress.goto.click();
                             }
                     }           
                    if (formprogress.act.selectedIndex == 14){
                           formprogress.HiddenSelect.style.display="inline";
                    }
                    else{
                           formprogress.HiddenSelect.style.display="none";
                    }       
             }

            function Reverse(){
                    if(document.formprogress.client_Id !=null)
                    {
                           var e = document.formprogress.client_Id;
                          if(!e.checked)
                          {
                                 document.formprogress.client_Id.checked = true;
                           }
                          var idList = document.formprogress;
                          for(var i=0;i<idList.client_Id.length;i++)
                          {
                               var e = document.formprogress.client_Id[i];
                               if(!e.checked)
                               {
                                     document.formprogress.client_Id[i].checked = true;
                               }
                           }
                     }
            }

            function ReSet(){
                  if(document.formprogress.client_Id !=null)
                  {
                       var idList = document.formprogress;
                       document.formprogress.client_Id.checked = false;
                       var idList = document.formprogress;
                       for(var i=0;i<idList.client_Id.length;i++)
                       {
                            document.formprogress.client_Id[i].checked = false;
                       }
                  }
            }
</SCRIPT>

</HEAD>
<BODY topmargin=0>

<!--#INCLUDE FILE="sidemenu.asp"-->

<table border=0 width=100% cellspacing=0 cellpadding=1>
         <tr>
                  <td width=100 height="67" bgcolor=greenyellow>
                          <img border="0" src="images/tushan2.gif" width="100" height="65" align=middle vspace=0 hspace=0>
                  </td>
                  <td rowspan=2 bgcolor=dodgerblue>
                           <a href=advertisement/boardad/top.htm target="new">
                           <%
                                 set objad=server.createobject("mswc.adrotator")
                                 response.write objad.getadvertisement("advertisement/boardad/topadrot.txt")
                                 set objad=nothing
                            %>
                           </a>
                  </td>
         </tr>
         <tr>
                  <td height="6" bgcolor=dodgerblue>
                  </td>
         </tr>
</table>
<CENTER>
<DIV id="Cmenu1" onmouseover="showMenu(Cmenu1)" onmouseout="hideMenu(Cmenu1)" style="cursor:hand;visibility:hidden;position:absolute;left:10;top:130;">
         <%call CNavigation_BM()%>
</DIV>
<DIV id="Bmenu1" onmouseover="showMenu(Bmenu1)" onmouseout="hideMenu(Bmenu1)" style="cursor:hand;visibility:hidden;position:absolute;left:120;top:130;">
         <%call BNavigation_BM(Communityid_B_boardid(Request.QueryString("boardid")))%>
</DIV>

<table border=0 width=970>
        <tr>
                <td align=right>
                           <span style="font-size:14"><b><%=session("tslt_username")%></b></span>
                           <span style="font-size:20">
                           <%if (session("tslt_useridentity")=1 or session("tslt_useridentity")=2) then%>
                                   <A class=td8 id="TopRight_mune1" onmouseover="ShowDivMenu(1)" href="admin_index/ad_index.asp"></A>
                           <%elseif board_BZUser(Request.QueryString("boardid")) then%>
                                   <A class=td8 id="TopRight_mune1" onmouseover="ShowDivMenu(1)"></A>
                           <%end if%>
                          <%if session("tslt_username")<>"" then%>
                                     <%if session("tslt_openFrameChat")=True then%>
                                               <A class=a2 href="javascript:parent.bottomFrame.location.href='chat/exit.asp';parent.location.href='logout.asp';"><font color=red>ע¼</font></A>
                                     <%else%>
                                               <A class=a2 href="logout.asp"><font color=red>ע¼</font></A>
                                     <%end if%>
                                    <%if isBoardReadonly(Request.QueryString("boardid"))=true then%>
                                              <%if session("tslt_useridentity")=1 or session("tslt_useridentity")=2 then%>
                                                    <a class=a2 title="(¼)" href="fbly.asp?boardid=<%=Request.QueryString("boardid")%>&Page=<%=Request.QueryString("Page")%>"><b><span id=a1></span><span id=a2></span><span id=a3></span><span id=a4></span></b></A>
                                              <%else%>
                                                    <p style="DISPLAY: none"><span id=a1></span><span id=a2></span><span id=a3></span><span id=a4></span></p>
                                              <%end if%>
                                     <%else%>
                                              <a class=a2 title="(¼)" href="fbly.asp?boardid=<%=Request.QueryString("boardid")%>&Page=<%=Request.QueryString("Page")%>"><b><span id=a1></span><span id=a2></span><span id=a3></span><span id=a4></span></b></A>
                                     <%end if%>  
                          <%else%>
                                     <A class=a2 href="userlogin.asp">¼</A>&nbsp;<A class=a2 href="zc.asp">ע</A>&nbsp;<a class=a2 title="(¼)" href="fbly.asp?boardid=<%=Request.QueryString("boardid")%>&Page=<%=Request.QueryString("Page")%>"><b><span id=a1></span><span id=a2></span><span id=a3></span><span id=a4></span></b></A>
                          <%end if%>

<SCRIPT language="JavaScript">
      var w2="";
      function wordcolorvalue(){
            var t,i,k,s,wordcolor;
            s=16;
            t=new Array("0","1","2","3","4","5","6","7","8","9","a","b","c","d","e","f");
            for(i=0;i<=5;i++)
            {
                  k=Math.floor((Math.random()*s));
                  wordcolor=t[k];
                  w2+=wordcolor;
             }
             w2="#" + w2;
       }

       var temp_r=0;
       var temp_i=1;
       var temp_j=4;
       var temp_k=0;
       function flash_sms(){
             temp_r++;
             temp_k++;
             if (temp_r==8)
             { 
                    w2="";
                    wordcolorvalue();
             }
             if (temp_k<=4)
             {
                   for (i=1;i<=4;i++){
                        if (i==temp_i) 
                        {
                                temp_str="red";
                                eval("a"+i+".style.color='"+temp_str+"';");
                        }
                        else
                        {
                               temp_str=w2;
                              eval("a"+i+".style.color='"+temp_str+"';");
                         }
                   }
                   temp_i++;
                   if (temp_i>4) temp_i=1;
             }
             else if (temp_k>4)
             {
                   for (j=4;j>=1;j--)
                  {
                        if (j==temp_j) 
                        {
                               temp_str="red";
                               eval("a"+j+".style.color='"+temp_str+"';");
                        }
                        else
                        {
                              temp_str=w2;
                             eval("a"+j+".style.color='"+temp_str+"';");
                         }
                   }
                   temp_j--;
                   if (temp_j<1) temp_j=4;
             }
             if (temp_k>7) temp_k=0;
             if (temp_r>7) temp_r=0;
      }
     setInterval("flash_sms()",500);
</SCRIPT>

                          <%if request("jinghua")="" then%> 
                                       <img src="images/jh.gif" width="17" height="17" border=0><a class=a2 href=board.asp?jinghua=true&boardid=<%=request("boardid")%> title=""></a>
                          <%end if%>
                          <A class=td8 id="TopRight_mune2" onmouseover="ShowDivMenu(2)">ܲ˵</A>
                          <%if session("tslt_username")<>"" then%>
                                       <a title="´" target="_blank" href=sitenote.asp?boardtositenote=ok&boardid=<%=Request.QueryString("boardid")%>><img src="images/zndx.gif" width="17" height="17" border=0></a><a class=a2 href=sitenote.asp?boardtositenote=ok&boardid=<%=Request.QueryString("boardid")%>>վڶ</a>
                                       <%if request("article")="" then%> 
                                                    <a title="´" target="_blank" href=collectionA.asp><img src="images/scj.gif" width="17" height="17" border=0></a><a class=a2 href=collectionA.asp title="ղ">ղؼ</a>
                                       <%end if%>
                          <%end if%>
                          </span>
                           <DIV id="div_mune1" align="right" style="display:none;" onmouseover="ShowDivMenu(1)" onmouseout="HideDivMenu(1)">
                                    <table class="td8" border=0 cellspacing=0 cellpadding=0 bordercolordark='#000000' bordercolorlight='#000000'>
                                             <tr>
                                                     <td class=font3>
                                                             <%if request("secret")="" then%> 
                                                                      <img src="images/qiaoqiaohua.gif" width="17" height="17" border=0><a class=a4 href=board.asp?secret=true&boardid=<%=request("boardid")%>><font color=bbbbbb class=font3>Ļ</font></a>    
                                                              <%end if%>
                                                              <%if request("lockarticle")="" then%> 
                                                                      <img src="images/lock.gif" width="17" height="17" border=0><a class=a4 href=board.asp?lockarticle=true&boardid=<%=request("boardid")%> title=",ͨûȨ"></a>
                                                              <%end if%>
                                                              <%if request("transmit")="" then%> 
                                                                      <img src="images/transmit.gif" width="17" height="17" border=0><a class=a4 href=board.asp?transmit=true&boardid=<%=request("boardid")%> title="ת">ת</a>
                                                              <%end if%>
                                                              <%if request("jinghua")="" then%> 
                                                                      <img src="images/jh.gif" width="17" height="17" border=0><a class=a4 href=board.asp?jinghua=true&boardid=<%=request("boardid")%> title=""></a>
                                                              <%end if%>
                                                              <%if request("dustbin")="" then%> 
                                                                    <%if (session("tslt_useridentity")=1 Or session("tslt_useridentity")=2) then%> 
                                                                          <img src="images/dustbin.gif" width="17" height="17" border=0><a class=a4 href=board.asp?dustbin=true&boardid=<%=request("boardid")%> title=""></a>
                                                                    <%end if%>
                                                              <%end if%>
			                                                  &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
                                                              <%if request("secret")<>"" or request("lockarticle")<>"" or request("transmit")<>"" then%>
				                                              &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
                                                              <%end if%>
                                                     </td>
                                             </tr>
                                    </table>
                           </DIV>
                            <DIV id="div_mune2" align="right" style="display:none;" onmouseover="ShowDivMenu(2)" onmouseout="HideDivMenu(2)">
                                 <table class="td8" border="0" cellspacing="0" cellpadding="0" bordercolordark='#000000' bordercolorlight='#000000'>
                                     <tr>
                                          <td class=font3>
		                                         <img src="images/wyl.gif" width="17" height="17" border=0><A class=a4 target="_blank" href="wyl/wy.asp">¼</A>
                                                 <%If session("tslt_openFrameChat")="" then%>
                                                               <img src="images/lts.gif" width="17" height="17" border=0><A class=a4 href="index_Frame.asp?currentPU=<%=currentPageUrl%>"></A>
                                                  <%else%>
                                                               <img src="images/lts.gif" width="17" height="17" border=0><A class=a4 href="javascript:parent.bottomFrame.location.href='chat/exit.asp';parent.location.href=self.location.href;">ر</A>
                                                  <%End if%>
                                                  &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 
                                           </td>
                                     </tr>
                                 </table>
                            </DIV>
                </td>
        </tr>
        <tr>
                <td align="left" onmouseout="HideDivMenu2(1)" onmouseout="HideDivMenu2(2)">
                        <span style="font-size:14">
                        <img src=images/home.gif><a class=a1 onmouseover="showMenu(Cmenu1)" href=index.asp>̳ҳ</a>
                        <b></b>&nbsp;<a class=a1 onmouseover="showMenu(Bmenu1)" href=community.asp?Communityid=<%=Communityid_B_boardid(request("boardid"))%>><%=Communityname(Communityid_B_boardid(request("boardid")))%></a>
                        <%if request("jinghua")<>"" then%>
                                 <b></b>&nbsp;<a class=a1 href=board.asp?boardid=<%=request("boardid")%>><%=boardname(request("boardid"))%></a>&nbsp;<b></b>&nbsp;<img src="images/jh.gif" width="17" height="17" border=0>
                        <%elseif request("lockarticle")<>"" then%>
                                  <%if (session("tslt_useridentity")=1 or session("tslt_useridentity")=2 or board_BZUser(request("boardid"))) then%>            
                                           <b></b>&nbsp;<a class=a1 href=board.asp?boardid=<%=request("boardid")%>><%=boardname(request("boardid"))%></a>&nbsp;<b></b>&nbsp;<img src="images/lock.gif" width="17" height="17" border=0>
                                   <%end if%>
                         <%elseif request("transmit")<>"" then%>
                                    <%if (session("tslt_useridentity")=1 or session("tslt_useridentity")=2 or board_BZUser(request("boardid"))) then%>
                                             <b></b>&nbsp;<a class=a1 href=board.asp?boardid=<%=request("boardid")%>><%=boardname(request("boardid"))%></a>&nbsp;<b></b>&nbsp;<img src="images/transmit.gif" width="17" height="17" border=0>ת
                                    <%end if%>
                         <%elseif request("secret")<>"" then%>
                                    <b></b>&nbsp;<a class=a1 href=board.asp?boardid=<%=request("boardid")%>><%=boardname(request("boardid"))%></a>&nbsp;<b></b>&nbsp;<img src="images/qiaoqiaohua.gif" width="17" height="17" border=0><font color=bbbbbb>Ļ</font>
                         <%elseif request("dustbin")<>"" then%>
                                    <b></b>&nbsp;<a class=a1 href=board.asp?boardid=<%=request("boardid")%>><%=boardname(request("boardid"))%></a>&nbsp;<b></b>&nbsp;<img src="images/dustbin.gif" width="17" height="17" border=0>
                          <%elseif request("keyword")<>"" and request("sel1")<>"" then%>
                                     <b></b>&nbsp;<a class=a1 href=board.asp?boardid=<%=request("boardid")%>><%=boardname(request("boardid"))%></a>&nbsp;<b></b>&nbsp;
                          <%else%>
                                      <b></b>&nbsp;<%=boardname(request("boardid"))%>
                          <%end if%>
                         </span>
                </td>
        </tr>
</table>
<hr width=955>

<%
dim rs
dim sql
sql="select * from board where boardid="&request("boardid")&" order by boardsort DESC"
set rs=conn.execute(sql)
                if rs.eof then response.write "<SCRIPT language=Javascript>passwords(promptInfo_board(0))</SCRIPT>"
                if rs("boardhidden")=true then
				    Call tslt_useridentity12_error_Exit()
                end If
                if rs("authentication")=true Then
                        call authenticationPass()
                end If
                if rs("autSel")=true then
                        call autSelPass()
                end If
                dim boardreadonly
                boardreadonly=rs("boardreadonly")
%>
                 <%call BoardTop_bulletin(rs("boardid"))%>

                 <table width=930 border="0" cellpadding="0" cellspacing="0">
                        <tr>
                               <td align="left" valign="top" width=50>
                                        <img src="style/<%=session("tslt_stylefolder")%>/shutiao.gif" width=50 oncontextmenu="return false">
                                </td>
                                <td valign="top" width="440">
                                        <span style="position: absolute; z-index: -1"><img src="style/<%=session("tslt_stylefolder")%>/focus_j2.gif" height=30 width=440></span>
                                        <p style="font-family:Ĳ;font-size:30"><%=rs("boardname")%></p>
                                <td valign="top" width="440">
                                        <span style="position: absolute; z-index: -1"><img src="style/<%=session("tslt_stylefolder")%>/focus_j2.gif" height=30 width=440></span>
                                        <p align=right style="font-family:;font-size:25">
<%
                                         call boardmanageuser(rs("boardid"))
		     If isCEBM() And boardmanageuser_yes(rs("boardid")) Then  Response.write "<font color='red'>Ƹ</font>"
%> 
                                       </p>
                                </td>
                       </tr>
                 </table>
                 <table width=930 border="0" cellpadding="0" cellspacing="0">
                       <tr>
                               <td width="25%">
                                      <%if not rs("boardid")="" then %>
                                                 <%if rs("boardimg")="" then%>
                                                          &nbsp;&nbsp;<font size=5 face="" color=<%=rs("wordcolor")%>><%=rs("boardname")%></font>
                                                  <%else%>
                                                           &nbsp;&nbsp;<img align=absmiddle name="bdimg<%=rs("boardid")%>" id="bdimg<%=rs("boardid")%>" src="<%=rs("boardimg")%>" width=160 height=32 border="0" hspace=1 vspace=2">
                                                  <%end if%>
                                       <%end if %>
                                </td>
                                <td>
                                         <font size=2>
                                         <img src="images/shuye2.gif" align="absbottom" width=30 height=15>
                                         <%if rs("boardhidden") then response.write "<font color=red>(ذ)</font>" end if%>
                                         <%if rs("boardreadonly") then response.write "<font color=red>(ֻ)</font>" end if%>
                                         <%if rs("authentication") And rs("autSel")=False then response.write "<font color=red>(֤)</font>" end if%>
                                         <%if rs("autSel") then response.write "<font color=red>(ר)</font>" end if%>
                                         <%=rs("boarddetail")%>
                                         <br>
										 <span style="font-size:12">
										 [/ظ<%=boardAT(rs("boardid"))%>/<%=boardRAT(rs("boardid"))%>&nbsp;&nbsp;&nbsp;ռÿռ䣺<%=boardARSize(boardid2)%>]
                                         </span>
                                         </font>
                                </td>
                       </tr>
                 </table>

                 <form action="progress.asp" method="post" id="form2" name=formprogress>
                       <input type="hidden" name="boardidhidden" value=<%=request("boardid")%>>
                       <%if request("Page")<>"" then%>
                                <input type="hidden" name="boardpagehidden" value=<%=request("Page")%>>
                       <%else%>
                                <input type="hidden" name="boardpagehidden" value=0>
                       <%end if%>
                       <input type="hidden" name="boardlockarticlehidden" value=<%=request("lockarticle")%>>
                       <input type="hidden" name="boardsecrethidden" value=<%=request("secret")%>>
                       <input type="hidden" name="boardkeywordhidden" value="<%=keyword2%>">
                       <input type="hidden" name="boardjinghuahidden" value=<%=request("jinghua")%>>
                       <input type="hidden" name="boardtransmithidden" value=<%=request("transmit")%>>
                       <input type="hidden" name="boardsel1hidden" value=<%=request("sel1")%>>
                       <input type="hidden" name="boardHidden_dustbin" value=<%=request("dustbin")%>>

                 <table align=center width=900 border="0" cellspacing="1" cellpadding="0" >
                       <tr>
                              <td align="center" height="15" colspan="3"><font color="#FF0000">&nbsp;&nbsp;&nbsp; </font></td>
                              <td align="center" height="15" width="11%"><font color="#FF0000"></font></td>
                              <td align="center" height="15" width="8%"><font color="#FF0000">С</font></td>
                              <td align="center" height="15" width="11%"><font color="#FF0000">ظ/</font></td>
                              <td align="center" height="15" width="24%"><font color="#FF0000"></font></td>
                              <%if (session("tslt_useridentity")=1 or session("tslt_useridentity")=2 or board_BZUser(request("boardid"))) then%>
                                     <td align="center" height="15" width="5%" bordercolordark="#C0C0C0"><font color="#FF0000"></font></td>
                              <%end if%>
                      </tr>
<%
                      if Request("Page")="" or Request("Page")=0 or Request("Page")=1 Then
                         Dim objRS
                         Dim strSQL
                         strSQL = "SELECT * FROM article where adminindex=true Order By lastReplyTime DESC"
                         Set objRS = Server.CreateObject("ADODB.Recordset")
                         objRS.Open strSQL, Conn, 1,1
                               if objRS.recordcount<>0 then
                                     For I = 1 To objRS.recordcount
                                            ' id = objRS("id")
                                            Response.Write "<TR height='20' bgcolor=#f7f6f6 onmouseover=sbar(this) onmouseout=cbar(this)>"
                                            call ArticleListField()
                                            objRS.MoveNext
                                            If objRS.EOF Then Exit For
                                      Next
                               end if
                         objRS.close 
                         Set objRS = Nothing

                         strSQL = "SELECT * FROM article where Communityid="&rs("Communityid")&" and topfirst=true Order By lastReplyTime DESC"
                         Set objRS = Server.CreateObject("ADODB.Recordset")
                         objRS.Open strSQL, Conn, 1,1
                               if objRS.recordcount<>0 then
                                   For I = 1 To objRS.recordcount
                                        Response.Write "<TR height='20' bgcolor=#f7f6f6 onmouseover=sbar(this) onmouseout=cbar(this)>"
                                        call ArticleListField()
                                        objRS.MoveNext
                                        If objRS.EOF Then Exit For
                                   Next
                               end if
                         objRS.close 
                         Set objRS = Nothing

                         strSQL = "SELECT * FROM article where boardid="&rs("boardid")&" and top1=true Order By lastReplyTime DESC"
                         Set objRS = Server.CreateObject("ADODB.Recordset")
                         objRS.Open strSQL, Conn, 1,1
                               if objRS.recordcount<>0 then
                                   For I = 1 To objRS.recordcount
                                       Response.Write "<TR height='20' bgcolor=#f7f6f6 onmouseover=sbar(this) onmouseout=cbar(this)>"
                                       call ArticleListField()
                                       objRS.MoveNext
                                       If objRS.EOF Then Exit For
                                   Next
                               end if
                         objRS.close 
                         Set objRS = Nothing

                         strSQL = "SELECT * FROM article where boardid="&rs("boardid")&" and top_temp=true and CDate(tempTopDate)>='"&(Date-0)&"' Order By tempTopTime ASC"
						 Set objRS = Server.CreateObject("ADODB.Recordset")
                         objRS.Open strSQL,Conn,1,1
                               if objRS.recordcount<>0 then
                                   For I = (TTCount()+1) To objRS.recordcount
						               conn.execute("update article set top_temp=false where ID="&objRS("ID"))
                                       objRS.MoveNext
                                       If objRS.EOF Then Exit For
                                   Next
                               end if
                         objRS.close 
                         Set objRS = Nothing

                         strSQL = "SELECT top " &TTCount()& " * FROM article where boardid="&rs("boardid")&" and top_temp=true and CDate(tempTopDate)>='"&(Date-0)&"' Order By tempTopTime DESC"
						 Set objRS = Server.CreateObject("ADODB.Recordset")
                         objRS.Open strSQL,Conn,1,1
                               if objRS.recordcount<>0 then
                                   For I = 1 To TTCount()
                                           Response.Write "<TR height='20' bgcolor=#f7f6f6 onmouseover=sbar(this) onmouseout=cbar(this)>"
                                           call ArticleListField()
                                           objRS.MoveNext
                                           If objRS.EOF Then Exit For
                                   Next
                               end if
                         objRS.close 
                         Set objRS = Nothing

                         strSQL = "SELECT * FROM article where boardid="&rs("boardid")&" and CDate(tempTopDate)<'"&(Date-0)&"'"
						 Set objRS = Server.CreateObject("ADODB.Recordset")
                         objRS.Open strSQL,Conn,1,1
                               if objRS.recordcount<>0 then
                                   For i = 1 To objRS.recordcount
						               conn.execute("update article set top_temp=false where ID="&objRS("ID"))
                                       objRS.MoveNext
                                       If objRS.EOF Then Exit For
                                   Next
                               end if
                         objRS.close 
                         Set objRS = Nothing
                      end If

                         If (session("tslt_useridentity")=1 Or session("tslt_useridentity")=2) Then
                             if keyword2<>"" Then
                                       sel1=request("sel1")
                                       if sel1="" Then
                                                 strSQL = "SELECT * FROM article where (user like '%"& keyword2 &"%') and boardid="&rs("boardid")&" and topfirst=false and top1=false and adminindex=false and top_temp=false Order By lastReplyTime DESC"
                                       elseif sel1="" Then
												 strSQL = "SELECT * FROM article where " &(resArrKeyword(sel1,keyword2))& " and boardid="&rs("boardid")&" and topfirst=false and top1=false and adminindex=false and top_temp=false Order By lastReplyTime DESC"
									   elseif sel1="" then
                                                 strSQL = "SELECT * FROM article where " &(resArrKeyword(sel1,keyword2))& " and boardid="&rs("boardid")&" and topfirst=false and top1=false and adminindex=false and top_temp=false Order By lastReplyTime DESC"
									   elseif sel1="" then
                                                 strSQL = "SELECT * FROM article where boardid="&rs("boardid")&" and topfirst=false and top1=false and adminindex=false and top_temp=false Order By ReadCount DESC"
                                       elseif sel1="С" then
                                                 strSQL = "SELECT * FROM article where boardid="&rs("boardid")&" and topfirst=false and top1=false and adminindex=false and top_temp=false Order By contentsize DESC"
                                       elseif sel1="С" then
                                                 strSQL = "SELECT * FROM article where boardid="&rs("boardid")&" and topfirst=false and top1=false and adminindex=false and top_temp=false Order By AllReplySize DESC"
                                       else
                                                 strSQL = "SELECT * FROM article where boardid="&rs("boardid")&" and topfirst=false and top1=false and adminindex=false and top_temp=false Order By lastReplyTime DESC"
                                       end if
                             elseif request("secret")<>"" then 
                                       strSQL = "SELECT * FROM article where boardid="&rs("boardid")&" and secret=true Order By lastReplyTime DESC"
                             elseif request("jinghua")<>"" then 
                                       strSQL = "SELECT * FROM article where boardid="&rs("boardid")&" and jinghua=true Order By lastReplyTime DESC"
                             elseif request("lockarticle")<>"" then 
                                       strSQL = "SELECT * FROM article where boardid="&rs("boardid")&" and lockarticle=true Order By lastReplyTime DESC"
                             elseif request("transmit")<>"" then 
                                       strSQL = "SELECT * FROM article where boardid="&rs("boardid")&" and transmit=true Order By lastReplyTime DESC"
                             elseif request("dustbin")<>"" then 
                                       strSQL = "SELECT * FROM article where boardid="&rs("boardid")&" and dustbin=true Order By lastReplyTime DESC"
                             else
                                       strSQL = "SELECT * FROM article where boardid="&rs("boardid")&" and topfirst=false and top1=false and adminindex=false and top_temp=false Order By lastReplyTime DESC"
                             end If
						 ElseIf board_BZUser(Request.QueryString("boardid")) Then 
                             if keyword2<>"" Then
                                       sel1=request("sel1")
                                       if sel1="" Then
                                                 strSQL = "SELECT * FROM article where (user like '%"& keyword2 &"%') and boardid="&rs("boardid")&" and topfirst=false and top1=false and adminindex=false and top_temp=false and dustbin=false Order By lastReplyTime DESC"
                                       elseif sel1="" Then
												 strSQL = "SELECT * FROM article where " &(resArrKeyword(sel1,keyword2))& " and boardid="&rs("boardid")&" and topfirst=false and top1=false and adminindex=false and top_temp=false and dustbin=false Order By lastReplyTime DESC"
									   elseif sel1="" then
                                                 strSQL = "SELECT * FROM article where " &(resArrKeyword(sel1,keyword2))& " and boardid="&rs("boardid")&" and topfirst=false and top1=false and adminindex=false and top_temp=false and dustbin=false Order By lastReplyTime DESC"
									   elseif sel1="" then
                                                 strSQL = "SELECT * FROM article where boardid="&rs("boardid")&" and topfirst=false and top1=false and adminindex=false and top_temp=false and dustbin=false Order By ReadCount DESC"
                                       elseif sel1="С" then
                                                 strSQL = "SELECT * FROM article where boardid="&rs("boardid")&" and topfirst=false and top1=false and adminindex=false and top_temp=false and dustbin=false Order By contentsize DESC"
                                       elseif sel1="С" then
                                                 strSQL = "SELECT * FROM article where boardid="&rs("boardid")&" and topfirst=false and top1=false and adminindex=false and top_temp=false and dustbin=false Order By AllReplySize DESC"
                                       else
                                                 strSQL = "SELECT * FROM article where boardid="&rs("boardid")&" and topfirst=false and top1=false and adminindex=false and top_temp=false and dustbin=false Order By lastReplyTime DESC"
                                       end if
                             elseif request("secret")<>"" then 
                                       strSQL = "SELECT * FROM article where boardid="&rs("boardid")&" and secret=true Order By lastReplyTime DESC"
                             elseif request("jinghua")<>"" then 
                                       strSQL = "SELECT * FROM article where boardid="&rs("boardid")&" and jinghua=true Order By lastReplyTime DESC"
                             elseif request("lockarticle")<>"" then 
                                       strSQL = "SELECT * FROM article where boardid="&rs("boardid")&" and lockarticle=true Order By lastReplyTime DESC"
                             elseif request("transmit")<>"" then 
                                       strSQL = "SELECT * FROM article where boardid="&rs("boardid")&" and transmit=true Order By lastReplyTime DESC"
                             else
                                       strSQL = "SELECT * FROM article where boardid="&rs("boardid")&" and topfirst=false and top1=false and adminindex=false and top_temp=false and dustbin=false Order By lastReplyTime DESC"
                             end If						 
                         Else
                             if keyword2<>"" Then
                                       sel1=request("sel1")
                                       if sel1="" then
                                                 strSQL = "SELECT * FROM article where (user like '%"& keyword2 &"%') and boardid="&rs("boardid")&" and lockarticle=false and topfirst=false and top1=false and adminindex=false and top_temp=false and dustbin=false Order By lastReplyTime DESC"
                                       elseif sel1="" Then
												 strSQL = "SELECT * FROM article where " &(resArrKeyword(sel1,keyword2))& " and boardid="&rs("boardid")&" and lockarticle=false and topfirst=false and top1=false and adminindex=false and top_temp=false and dustbin=false Order By lastReplyTime DESC"
									   elseif sel1="" then
                                                 strSQL = "SELECT * FROM article where " &(resArrKeyword(sel1,keyword2))& " and boardid="&rs("boardid")&" and lockarticle=false and topfirst=false and top1=false and adminindex=false and top_temp=false and dustbin=false Order By lastReplyTime DESC"
									   elseif sel1="" then
                                                 strSQL = "SELECT * FROM article where boardid="&rs("boardid")&" and lockarticle=false and topfirst=false and top1=false and adminindex=false and top_temp=false and dustbin=false Order By ReadCount DESC"
                                       elseif sel1="С" then
                                                 strSQL = "SELECT * FROM article where boardid="&rs("boardid")&" and lockarticle=false and topfirst=false and top1=false and adminindex=false and top_temp=false and dustbin=false Order By contentsize DESC"
                                       elseif sel1="С" then
                                                 strSQL = "SELECT * FROM article where boardid="&rs("boardid")&" and lockarticle=false and topfirst=false and top1=false and adminindex=false and top_temp=false and dustbin=false Order By AllReplySize DESC"
                                       else
                                                 strSQL = "SELECT * FROM article where boardid="&rs("boardid")&" and lockarticle=false and topfirst=false and top1=false and adminindex=false  and top_temp=false and dustbin=false Order By lastReplyTime DESC"
                                       end if
                             elseif request("jinghua")<>"" then 
                                       strSQL = "SELECT * FROM article where boardid="&rs("boardid")&" and jinghua=true Order By lastReplyTime DESC"
                             else
                                       strSQL = "SELECT * FROM article where boardid="&rs("boardid")&" and lockarticle=false and topfirst=false and top1=false and adminindex=false and top_temp=false and dustbin=false Order By lastReplyTime DESC"
                             end If
						 End If 
                         Set objRS = Server.CreateObject("ADODB.Recordset")
                         objRS.Open strSQL, Conn, 1,1
                                       If objRS.Eof And objRS.Bof Then
                                              if keyword2<>"" Then
                                                   If request("sel1")="" Or request("sel1")="" Then												  
													  Response.Write "<SCRIPT language=Javascript>passwords(promptInfo_board(1))</SCRIPT>"
													  Response.Write "<tr><td colspan=7><center><a href=BPartQuer.asp?boardid=" &request("boardid")& "&sel1=" &request("sel1")& "&keyWord=" &replaceChr32(keyword2)& "><b><font color=red>&nbsp;" 
													  Response.Write "<SCRIPT language=Javascript>passwords(promptInfo_board(7))</SCRIPT>"
													  Response.Write "</font></b></a>&nbsp;&nbsp;<br><br>"
                                                   Else												  
													  Response.Write "<SCRIPT language=Javascript>passwords(promptInfo_board(1))</SCRIPT>"                                                   
												   End If 
											  elseif request("jinghua")<>"" then
                                                      Response.Write "<SCRIPT language=Javascript>passwords(promptInfo_board(2))</SCRIPT>"
                                              elseif request("secret")<>"" then
                                                      Response.Write "<SCRIPT language=Javascript>passwords(promptInfo_board(3))</SCRIPT>"
                                              elseif request("lockarticle")<>"" then
                                                      Response.Write "<SCRIPT language=Javascript>passwords(promptInfo_board(4))</SCRIPT>"
                                              elseif request("transmit")<>"" then
                                                      Response.Write "<SCRIPT language=Javascript>passwords(promptInfo_board(5))</SCRIPT>"
                                              elseif request("dustbin")<>"" then
                                                      Response.Write "<SCRIPT language=Javascript>passwords(promptInfo_board(8))</SCRIPT>"
                                              else
                                                      Response.Write "<SCRIPT language=Javascript>passwords(promptInfo_board(6))</SCRIPT>"
                                              end if
                                        end if

                                        dim RowCount,totalPage,totalRecordcount
                                        if NOT (objrs.EOF And objrs.BOF) then
                                                objrs.pagesize=showlistok()
                                                RowCount=objrs.PageSize
                                                totalPage=objrs.pagecount
                                                objRS.AbsolutePage=REQUEST("Page")
                                                totalRecordcount=objrs.recordcount
                                         end if
                                        DO WHILE NOT objrs.EOF AND RowCount>0
                                               RowCount = RowCount - 1
                                               Response.Write "<TR height='20' class=td1 onmouseover=sbar(this) onmouseout=cbar(this)>"
                                               call ArticleListField()
                                               objrs.MoveNext 
                                        Loop
                                        Response.Write "</TABLE>"
                        objRS.close 
                        Set objRS = Nothing
%>
                        <%if (session("tslt_useridentity")=1 or session("tslt_useridentity")=2 or board_BZUser(request("boardid"))) then%>
                             <div align="right">
<%
                             if session("tslt_useridentity")=1 or session("tslt_useridentity")=2 or boardmanageuser2(request("boardid")) then
%>
                                     <b>Ƹ:</b><input name="chk_CEBM" type="checkbox" value="yes" <%If isCEBM() Then%>checked  style="background-color:red;"<%End If%>>
                                     &nbsp;
                                     <b>:</b>
                                     <input type=text size=4 name= boardmanageusertext onmouseup="alert('Ҫĳûǰ? û  ȷ  ť');">
                                     <b>:</b>
									 <input type=text size=4 name= boardmanageusertext2 onmouseup="alert('Ҫĳ? û  ȷ  ť');">
                             <%end if%>
                             &nbsp;&nbsp;
                             <select name=act class=input2 LANGUAGE=javascript onchange="return set_onchange()">
                                    <option value="0"></option>
                                    <option value="1">ɾ</option>
                                    <option value="2">Ϊ</option>        
                                    <option value="3">ȡ</option>
                                    <option value="4">̶</option>
                                    <option value="5">ȡ̶</option>
                                    <option value="6"></option>  
                                    <option value="7">ȡ</option>
                                    <option value="8">תԱ</option>
                                    <option value="9">ȡת</option>
                                    <option value="10">ȫ</option>
                                    <option value="11">ȡȫѡ</option>  
                                    <option value="12">ðͷʾ</option>
                                    <option value="13">ȡͷʾ</option>
                                    <option value="14">ֲ</option>
                                    <%if (session("tslt_useridentity")=1 or session("tslt_useridentity")=2) then%>
                                             <option value="15">̶</option>
                                             <option value="16">ȡ̶</option>
                                             <option value="17">̶ܹ</option>
                                             <option value="18">ȡ̶ܹ</option>
                                             <option value="19">лԭ</option>
                                             <option value="20">ɾ</option>
                                             <option value="21"></option>
                                    <%end if%>
                                </select>

                             <select size=1 name=HiddenSelect style="display:none">
                                     <%call SelectBoardName()%>
                             </select>

                             <input name="goto" type=submit class=input3 id="goto2" value="ȷ">&nbsp;&nbsp;&nbsp;&nbsp;
                             </div>
                       <%end if%>
                </form>

                <%call pages()%>
                <br><br>
<%
rs.close
set rs=nothing 
%>

<br><br>
<table border=0 cellspacing=0 cellpadding=2 align=center width=500>
           <form name=indexsearch action=board.asp?boardid=<%=request("boardid")%> method=post>
           <tr bordercolor=#0099CC align=center>
                     <td bgcolor=LightBlue width=83%><font color=#000070>ؼ:</font>
                           <input type=text size=15 name=keyword maxlength=50 value="<%=keyword2%>">
                           <SELECT name=sel1>
		<OPTION></OPTION>
		<OPTION></OPTION>
		<OPTION></OPTION>
		<OPTION></OPTION>
		<OPTION></OPTION>
		<OPTION>С</OPTION>
		<OPTION>С</OPTION>
                            </SELECT>

                            <SCRIPT for=sel1 event=onclick language="JavaScript">
                                    if (this.selectedIndex==4)
                                    {
                                           keyword.value=this.options(this.selectedIndex).text;
                                    }
                                    if (this.selectedIndex==5)
                                    {
                                            keyword.value=this.options(this.selectedIndex).text;
                                    }
                                    if (this.selectedIndex==6)
                                    {
                                            keyword.value=this.options(this.selectedIndex).text;
                                     }
                           </SCRIPT>

                           <input type=submit class=input3 height=18 width=39  name=b2 alt= value=>
                    </td>
                    <td>&nbsp;<a class=a1 href=javascript:history.go(-1)><b>ǰҳ</b></a></td>
           </tr>
           </form>
</table>

<%
If DemoLinkYesNo() Then 
    Call demoLink()
End If 
%>

<table align=center width="100%">
           <tr><td> 
                        <!--#INCLUDE file="BottomB.asp"-->
           </td></tr>
</table>  

<%Call delNewSitenote()%>

</BODY>
</HTML>

<%
Call conn_Nothing()

Function CommunityHiddenYesNo(aaa)
    dim SQL,RS
    SQL = "SELECT CommunityHidden FROM community where cstr(id)='" & aaa &"'"
	set RS = conn.execute(SQL)
        CommunityHiddenYesNo = RS("CommunityHidden")
    RS.close
    set RS = nothing
End Function

sub pages()
         dim keyword2
         keyword2=trim(request("keyword"))
         dim boardid2
         boardid2=Request.QueryString("boardid")
        dim Page      
        Page = Request("Page")
        if Page="" or Page=0 then
                 page=1
        else
                 page=cint(request("page"))
        end if
       if totalRecordcount<>0 then
            dim currid1,currid2
            if totalPage>=10 then
                  if Page mod 10=0 then
                        currid1=Page
                        currid2=Page-9
                  else
                        if totalPage mod 10=0 then 
                               currid1=int(Page/10)*10+10
                        else 
                               if int(Page/10)=int(totalPage/10) then currid1=(totalPage/10)*10 else currid1=int(Page/10)*10+10
                        end if
                        currid2=int(Page/10)*10+1
                  end if
            else 
                  currid1=totalPage mod 10
                  currid2=int(totalPage/10)*10+1
            end if
%>
            <table align=left>
                 <tr><td>
<%
                        if totalPage>1 Then
                              If Page=totalPage or Page<>1 Then 
                                     dim PrwePage
                                     PrwePage=Page-1
%>
									 <A class=a1 HREF="board.asp?boardid=<%=boardid2%>&Page=<%=PrwePage%>&keyword=<%=keyword2%>&jinghua=<%=request("jinghua")%>&secret=<%=request("secret")%>&lockarticle=<%=request("lockarticle")%>&transmit=<%=request("transmit")%>&sel1=<%=request("sel1")%>&dustbin=<%=request("dustbin")%>"><font size=4>һҳ</font></A>
<%
                              End If  
                        End If          
%>
                 </td></tr>
            </table>
            <table border="0"  align="left">
                 <tr><td>
                       <FONT face=webdings size=2>
                       <%if Page=1 then%>
                               <span style="color: #FF0000">9</span>
                       <%else%>
                               <a class=a2 href="board.asp?Page=1<%="&boardid="&boardid2&"&keyword="&keyword2&"&jinghua="&request("jinghua")&"&secret="&request("secret")&"&lockarticle="&request("lockarticle")&"&transmit="&request("transmit")&"&sel1="&request("sel1")&"&dustbin="&request("dustbin")%>">9</a>
                       <%end if%>
                       <%if Page>10 then%>
                               <a class=a2 href="board.asp?Page=<%=currid2-1&"&boardid="&boardid2&"&keyword="&keyword2&"&jinghua="&request("jinghua")&"&secret="&request("secret")&"&lockarticle="&request("lockarticle")&"&transmit="&request("transmit")&"&sel1="&request("sel1")&"&dustbin="&request("dustbin")%>">7</a>
                       <%end if%>
                       </FONT>
                       <strong>
<%
                       for i=currid2 to currid1
                            if Page=i then 
	                             response.Write("<font color=red size=4>"&i&"</font>  ")
                            else
%>
                                 <FONT size=2>
                                 <a class=a2 href="board.asp?Page=<%=i&"&boardid="&boardid2&"&keyword="&keyword2&"&jinghua="&request("jinghua")&"&secret="&request("secret")&"&lockarticle="&request("lockarticle")&"&transmit="&request("transmit")&"&sel1="&request("sel1")&"&dustbin="&request("dustbin")%>">
                                        <%response.write i%>
                                 </a>
                                 </FONT>
                            <%end if%>
                            <%response.write " "%>
                       <%next%>
                       </strong>
                       <FONT face=webdings size=2>
                       <%if currid1<totalPage then%>
                             <a class=a2 href="board.asp?Page=<%=currid1+1&"&boardid="&boardid2&"&keyword="&keyword2&"&jinghua="&request("jinghua")&"&secret="&request("secret")&"&lockarticle="&request("lockarticle")&"&transmit="&request("transmit")&"&sel1="&request("sel1")&"&dustbin="&request("dustbin")%>">8</a>
                      <%end if%>
                      </FONT> 
                      <FONT face=webdings size=2>
                      <%if Page=totalPage then%>
                             <span style="color: #FF0000">:</span>
                      <%else%>
                             <a class=a2 href="board.asp?Page=<%=totalPage&"&boardid="&boardid2&"&keyword="&keyword2&"&jinghua="&request("jinghua")&"&secret="&request("secret")&"&lockarticle="&request("lockarticle")&"&transmit="&request("transmit")&"&sel1="&request("sel1")&"&dustbin="&request("dustbin")%>">:</a>
                      <%end if%>
                      </FONT>
                 </td></tr>
            </table>
            <table align=left>
                 <tr><td>
<% 
                        if totalPage>1 Then
                             If page=1 or totalPage>Page Then
                                   dim NextPage
                                   NextPage=Page+1
%>
                                   <A class=a1 HREF="board.asp?boardid=<%=boardid2%>&Page=<%=NextPage%>&keyword=<%=keyword2%>&jinghua=<%=request("jinghua")%>&secret=<%=request("secret")%>&lockarticle=<%=request("lockarticle")%>&transmit=<%=request("transmit")%>&sel1=<%=request("sel1")%>&dustbin=<%=request("dustbin")%>"><font size=4>һҳ</font></A>
<%
                             End If
                        End If
%>
                 </td></tr>
            </table>
            <table align=right>
                 <tr><td>
<%
                       if Page>totalPage then
                            Page=totalPage
                       end if
                      Response.Write "<font size=2>ҳΣ<font color= red><b>"& Page &"</b></font>/<b>"& totalPage &"</b>ҳ ,<b>"& totalRecordcount &"</b></font>"
                      Response.Write "&nbsp;&nbsp;&nbsp;&nbsp;"
   %>
                </td></tr>
            </table>
<%
        end if
end sub

sub ArticleListField()
         dim keyword2
         keyword2=trim(request("keyword"))
         Response.Write "<td class='titleBottomBorder' width='3%' align='left' valign='baseline'>"
         if request("page")<>"" Then
                Response.Write "<a href=11.asp?id=" & objRS("id") & "&page=" &request("page")& "&jinghua=" &request("jinghua")& "&secret=" &request("secret")& "&lockarticle=" &request("lockarticle")&"&keyword=" &replaceChr32(keyword2)&"&transmit="&request("transmit")&"&sel1="&request("sel1")&"&dustbin="&request("dustbin")&"&boardpage=yes target='_blank'>"
         else
                Response.Write "<a href=11.asp?id=" & objRS("id") & "&jinghua=" &request("jinghua")& "&secret=" &request("secret")& "&lockarticle=" &request("lockarticle")& "&keyword=" &replaceChr32(keyword2)&"&transmit="&request("transmit")&"&sel1="&request("sel1")&"&dustbin="&request("dustbin")&"&boardpage=yes target='_blank'>" 
		 end If
         if objrs("adminindex")=true then  
               response.Write"<img src='images/top1.gif' alt='̶ܹӣ԰顼 "&boardname(objRS("boardid"))&" ' border=0>&nbsp;"
         elseif objrs("topfirst")=true then 
               response.Write"<img src='images/top2.gif' alt='̶ӣ԰顼 "&boardname(objRS("boardid"))&" ' border=0>&nbsp;"
         elseif objrs("top1")=true then 
               response.Write"<img src='images/top3.gif' alt='̶' border=0>&nbsp;"
         elseif objrs("top_temp")=true then 
               response.Write"<img src='images/top4.gif' alt='ʱ̶' border=0>&nbsp;"
         elseif objrs("jinghua") then 
               response.Write"<img src='images/jh.gif' alt='' border=0>&nbsp;"
         elseif objrs("board_bulletin") then 
               response.Write"<img src='images/star.GIF' alt='ͷʾ' border=0>&nbsp;"
         elseif objrs("lockarticle") Then
               response.Write"<img src='images/lock.gif' alt='' border=0>&nbsp;"
         elseif objrs("transmit") Then
               If (session("tslt_useridentity")=1 Or session("tslt_useridentity")=2 Or board_BZUser(Request.QueryString("boardid"))) Then
                   response.Write"<img src='images/transmit.gif' alt='ת' border=0>&nbsp;"
		       Else
                   response.Write"<img src='images/tiezi.gif' alt='´' border=0>&nbsp;"
		       End If 
         elseif objrs("dustbin") Then
               response.Write"<img src='images/dustbin.gif' alt='' border=0>&nbsp;"
         else
                response.Write"<img src='images/tiezi.gif' alt='´' border=0>&nbsp;"
         end if
         Response.Write"</a>"
         Response.Write "</td>"
         Response.Write "<td class='titleBottomBorder' width='1%' align='left' valign='baseline'>"
         if replyList2(objRS("id")) then
                Response.Write "<img src='images/plus.gif' alt='ظ'  id='Tag"& objRS("id") &"' style='cursor:hand;' onclick='javascript:turnit(Reply"& objRS("id") &" ,Tag"& objRS("id") &");showReplyPage("&objRS("id")&","&objRS("AllReplySize")&","&objRS("id")&");'>"
		 else
                Response.Write "<img src='images/minus.gif' alt='޻ظ'  id='Tag"& objRS("id") &"' style='cursor:hand;' onclick='javascript:turnit(Reply"& objRS("id") &" ,Tag"& objRS("id") &");showReplyPage("&objRS("id")&","&objRS("AllReplySize")&","&objRS("id")&");'>"
		 end if
         Response.Write "</td>"
         Response.Write "<td class='titleBottomBorder' align='left'>"
         if request("page")<>"" Then
                Response.Write "&nbsp;<a class=a2 href=11.asp?id=" & objRS("id") & "&page=" &request("page")& "&jinghua=" &request("jinghua")& "&secret=" &request("secret")& "&lockarticle=" &request("lockarticle")&"&keyword="&replaceChr32(keyword2)&"&transmit="&request("transmit")&"&sel1="&request("sel1")&"&dustbin="&request("dustbin")&"&boardpage=yes title='"& objRS("subject") &"&#13;&#10;"&objRS("firstAddTime")&"'><font size=4><b>" 
         else
                Response.Write "&nbsp;<a class=a2 href=11.asp?id=" & objRS("id") & "&jinghua=" &request("jinghua")& "&secret=" &request("secret")& "&lockarticle=" &request("lockarticle")& "&keyword=" &replaceChr32(keyword2)&"&transmit="&request("transmit")&"&sel1="&request("sel1")&"&dustbin="&request("dustbin")&"&boardpage=yes title='"& objRS("subject") &"&#13;&#10;"&objRS("firstAddTime")&"'><font size=4><b>" 
		 end if
         if objrs("secret") then response.write"<font color='#bbbbbb'>" 
         if len(objrs("subject"))>17 then
                response.write (left(objrs("subject"),17))&"..." 
         else 
                response.write objrs("subject")&""
         end if 
         Response.Write"</b></font></a>"
         Response.Write "</td>"
         Response.Write "<td class='titleBottomBorder' align='right'><span class=fontsize>"
         if objrs("user")<>"" then
                call UserInfoLink(objrs("user"))
         else
                Response.Write "(ο)"
         end if
         Response.Write "</span>"
         Response.Write "</td>"
         Response.Write "<td class='titleBottomBorder' align='right'><span class=fontsize>" &objrs("contentsize2")& "/" &FileContentSize2(objRS("AllReplySize"))& "</span></td>"
		 Response.Write "<td class='titleBottomBorder' align='center'><span class=fontsize>"&objRS("AllReplyCount")& "/" &objRS("ReadCount")&"</span></td>"
         if NewRH(objrs("ID"))<>"" then     
                Response.Write "<td class='titleBottomBorder' align='left'><span class=fontsize>" &objrs("lastReplyTime")&"<a title=' "&NewRH(objrs("ID"))&" '>" &(left(NewRH(objrs("ID")),6))&"</a></span></td>"
         else
                Response.Write "<td class='titleBottomBorder' align='left'><span class=fontsize>" &objrs("lastReplyTime")   
                if replyList2(objRS("id"))=true then    
                       Response.Write "(ο)"
                end if
                Response.Write "</span></td>"
         end if
         if objrs("adminindex")=true or objrs("topfirst")=true then
               if (session("tslt_useridentity")=1 or session("tslt_useridentity")=2) then
                      Response.Write "<td class='titleBottomBorder' align='center'><input type='checkbox' value='on' name="&objrs("id")&" id='client_Id'></td>"
               else
                      Response.Write "<td class='titleBottomBorder' align='center'></td>"
               end if      
         else
                if (session("tslt_useridentity")=1 or session("tslt_useridentity")=2 or board_BZUser(request("boardid"))) then
                       Response.Write "<td class='titleBottomBorder' align='center'><input type='checkbox' value='on' name="&objrs("id")&" id='client_Id'></td>"
                end if
         end if 
         Response.Write "</TR>"
         Response.Write "<TR>"
         Response.Write "<td colspan=8 id='Reply"& objRS("id") &"' style='DISPLAY: none'>"
         Response.Write "<b>ȡС</b>"
         Response.Write "</td>"
         Response.Write "</TR>"
end sub


%>
